home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earkit / news / thor / rexx / fse / forward.fse < prev    next >
Text File  |  1998-05-24  |  296b  |  20 lines
  1. /*
  2. ** $VER: Forward.fse 1.0 (6.9.95)
  3. ** Custom-quoting
  4. */
  5.  
  6. delete = '7F'x
  7.  
  8. options results
  9.  
  10. ISFIRSTCALL
  11. if (result = 'ON') then do
  12.   SENDER
  13.   if (result ~= "") then do
  14.     name = result
  15.     INSERTLINES 2
  16.     SENDERDATE
  17.     INSERTINPUT name||" wrote "||result||" the following:"||delete
  18.   end
  19. end
  20.